Voorbeeld met de gebeurtenissen SpinDown en SpinUp en de eigenschap Delay

In het volgende voorbeeld wordt de tijdsinterval getoond tussen de opeenvolgende gebeurtenissen Change, SpinUp en SpinDown die zich voordoen als de gebruiker de muisknop ingedrukt houdt om de waarde van een SpinButton of een ScrollBar te wijzigen.

In dit voorbeeld kiest de gebruiker een instelling voor de vertraging. Vervolgens klikt de gebruiker op een van beide kanten van een SpinButton en houdt deze ingedrukt. De gebeurtenissen SpinUp en SpinDown worden opgenomen in een ListBox zodra ze worden gestart.

Als u dit voorbeeld wilt gebruiken, kopieert u de voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Een SpinButton met de naam SpinButton1.
  
  
• Twee besturingselementen OptionButton met de namen OptionButton1 en OptionButton2.
  
  
• Een ListBox met de naam ListBox1.

Dim EventCount As Long

Private Sub ResetControl()
    ListBox1.Clear
    EventCount = 0
    SpinButton1.Value = 5000
End Sub

Private Sub UserForm_Initialize()
    SpinButton1.Min = 0
    SpinButton1.Max = 10000
    ResetControl
    
    SpinButton1.Delay = 50
    OptionButton1.Caption = "50 millisecond delay"
    OptionButton2.Caption = "250 millisecond delay"
        
    OptionButton1.Value = True
End Sub

Private Sub OptionButton1_Click()
    SpinButton1.Delay = 50
    ResetControl
End Sub

Private Sub OptionButton2_Click()
    SpinButton1.Delay = 250
    ResetControl
End Sub

Private Sub SpinButton1_SpinDown()
    EventCount = EventCount + 1
    ListBox1.AddItem EventCount
End Sub

Private Sub SpinButton1_SpinUp()
    EventCount = EventCount + 1
    ListBox1.AddItem EventCount
End Sub